home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD022a.dsk / ABOUT.SOFTDISK.bas next >
BASIC Source File  |  2003-06-12  |  9KB  |  194 lines
  1. 5  REM  ABOUT.SOFTDISK
  2. 10  TEXT : HOME : SPEED= 255
  3. 100  HTAB 12: PRINT "SOFTDISK MAGAZETTE"
  4. 110  HTAB 13: PRINT "3811 ST. VINCENT"
  5. 120  HTAB 7: PRINT "SHREVEPORT, LOUISIANA 71108"
  6. 130  PRINT : HTAB 6: PRINT "$10 TO START     $7 PER MONTH"
  7. 135  HTAB 12: PRINT "(OR $55 PER YEAR)"
  8. 140  PRINT : HTAB 10: PRINT "A SOFTALK PUBLICATION"
  9. 141  HTAB 10: PRINT "---------------------"
  10. 160  PRINT : HTAB 9: PRINT "PUBLISHER: AL TOMMERVIK"
  11. 170  PRINT : HTAB 11: PRINT "EDITORS: JIM MANGHAM"
  12. 175  HTAB 20: PRINT "AL VEKOVIUS"
  13. 185  PRINT : HTAB 7: PRINT "CIRCULATION: JUDI MANGHAM"
  14. 187  HTAB 20: PRINT "MARY JORDAN"
  15. 188  PRINT : HTAB 2: PRINT "STAFF PROGRAMMER: JIM WEILER"
  16. 189  PRINT : HTAB 5: PRINT "COVER DESIGNS: JIM GANZ"
  17. 190  GOSUB 8000
  18. 195  GOTO 2000
  19. 200  HOME 
  20. 210  VTAB 2: HTAB 12: PRINT "MAILING PROCEDURE"
  21. 220  GOSUB 8050
  22. 230  VTAB 7: PRINT " SENDS $10 STARTUP FEE"
  23. 240  GOSUB 8000
  24. 250  GOSUB 8200
  25. 260  GOSUB 8100
  26. 270  VTAB 7: HTAB 20: PRINT "RECEIVES STARTUP FEE"
  27. 280  GOSUB 8000
  28. 290  VTAB 9: HTAB 20: PRINT "SENDS INITIAL ISSUE": HTAB 20: PRINT "IN REUSABLE MAILER"
  29. 300  GOSUB 8000
  30. 310  GOSUB 8200
  31. 320  GOSUB 8050
  32. 330  VTAB 7: PRINT " RECEIVES INITIAL ISSUE"
  33. 340  PRINT " IN REUSABLE MAILER"
  34. 350  GOSUB 8000
  35. 360  VTAB 10: PRINT " IMMEDIATELY SEND BACK MAILER"
  36. 370  PRINT " & $7 PAYMENT FOR NEXT ISSUE"
  37. 375  PRINT " (RETAIN DISKETTE)"
  38. 470  GOSUB 8000
  39. 480  GOSUB 8200
  40. 490  GOSUB 8100
  41. 500  VTAB 7: HTAB 21: PRINT "RECEIVES MAILER &"
  42. 510  HTAB 21: PRINT "PAYMENT FOR NEXT"
  43. 520  HTAB 21: PRINT "ISSUE"
  44. 530  GOSUB 8000
  45. 540  VTAB 11: HTAB 21: PRINT "SENDS MAILER & NEW"
  46. 550  HTAB 21: PRINT "ISSUE"
  47. 560  GOSUB 8000
  48. 570  GOSUB 8200
  49. 580  GOSUB 8050
  50. 590  VTAB 7: PRINT " RECEIVES MAILER &"
  51. 600  PRINT " NEW ISSUE"
  52. 610  GOSUB 8000
  53. 620  VTAB 10: PRINT " IMMEDIATELY SEND BACK"
  54. 630  PRINT " OLD DISKETTE IN MAILER"
  55. 640  PRINT " WITH $7 PAYMENT FOR"
  56. 650  PRINT " NEXT ISSUE"
  57. 655  PRINT " (RETAIN NEW DISKETTE)"
  58. 700  GOSUB 8000
  59. 710  GOSUB 8200
  60. 720  GOSUB 8100
  61. 730  VTAB 7: HTAB 21: PRINT "RECEIVES MAILER WITH";
  62. 740  HTAB 21: PRINT "OLD DISKETTE &"
  63. 750  HTAB 21: PRINT "PAYMENT FOR NEXT"
  64. 760  HTAB 21: PRINT "ISSUE"
  65. 770  GOSUB 8000
  66. 780  VTAB 12: HTAB 21: PRINT "SENDS MAILER & YET"
  67. 790  HTAB 21: PRINT "ANOTHER ISSUE"
  68. 800  GOSUB 8000
  69. 810  GOSUB 8200
  70. 820  VTAB 8: HTAB 8: PRINT "-- AND THE ";: FLASH : PRINT "BEAT";: NORMAL : PRINT " GOES ON --"
  71. 830  VTAB 12: PRINT " PLEASE SEND RETURNS BACK THE SAME DAY"
  72. 840  PRINT " YOU RECEIVE A MAILER."
  73. 870  PRINT : PRINT " BE A GROOVER AND GET IN THE SOFTDISK"
  74. 875  PRINT " GROOVE."
  75. 880  GOSUB 8000
  76. 882  VTAB 5: CALL  -868
  77. 885  GOSUB 8200
  78. 890  VTAB 4: PRINT " OUR ADDRESS & PREPAID POSTAGE PERMIT"
  79. 900  PRINT " IS ON THE FLIP SIDE OF YOUR ADDRESS"
  80. 910  PRINT " CARD."
  81. 920  PRINT " (PLASTIC BAG OPENS AT RED LINE)"
  82. 930  PRINT : PRINT " THE FIRST THING YOU SHOULD DO UPON"
  83. 940  PRINT " RECEIVING A NEW MAGAZETTE IS MAKE A"
  84. 950  PRINT " PERSONAL COPY OF IT FOR YOUR KEEPING."
  85. 960  PRINT : PRINT " THEN YOU HAVE A MONTH TO PLAY WITH"
  86. 970  PRINT " OUR DISKETTE & PLACE FEEDBACK"
  87. 980  PRINT " COMMENTS ON IT."
  88. 990  PRINT : PRINT " WHEN YOU GET A NEW ONE,"
  89. 1000  PRINT " SEND BACK THE OLD ONE,"
  90. 1010  PRINT " WITH PAYMENT FOR THE NEXT ONE."
  91. 1015  PRINT " ALWAYS KEEP A DISK TO RUN."
  92. 1017  PRINT " THAT'S THE WAY TO HAVE SOME FUN."
  93. 1020  GOSUB 8000
  94. 1030  GOTO 2000
  95. 2000  HOME : VTAB 5: HTAB 12: PRINT "INFORMATION ABOUT"
  96. 2010  VTAB 10: HTAB 10: PRINT "1 = BACK ISSUES"
  97. 2030  VTAB 12: HTAB 10: PRINT "2 = MAILING PROCEDURE"
  98. 2040  VTAB 14: HTAB 10: PRINT "3 = FEEDBACK PROCESS"
  99. 2050  VTAB 16: HTAB 10: PRINT "4 = ANNUAL SUBSCRIPTIONS"
  100. 2055  VTAB 18: HTAB 10: PRINT "5 = FOR NEW SUBSCRIBERS"
  101. 2057  VTAB 20: HTAB 10: PRINT "6 = NONE OF THE ABOVE"
  102. 2060  VTAB 22: HTAB 3: PRINT "WHICH? ";: GET R$
  103. 2070  PRINT 
  104. 2080  IF R$ = "1" GOTO 3000
  105. 2100  IF R$ = "2" GOTO 200
  106. 2110  IF R$ = "3" GOTO 5000
  107. 2120  IF R$ = "4"  THEN  GOTO 9000
  108. 2128  IF R$ = "5"  THEN  PRINT  CHR$(4);"RUN SOFTDISK.Q&A"
  109. 2130  IF R$ = "6"  THEN  PRINT  CHR$(4);"RUN KICK.IT.OFF"
  110. 2140  GOTO 2000
  111. 3000  HOME : VTAB 6: HTAB 14: PRINT "BACK ISSUES"
  112. 3030  PRINT : PRINT "  THE FIRST AVAILABLE ISSUE IS OCT 81"
  113. 3033  PRINT : PRINT "      THERE WAS NO APRIL 82 ISSUE"
  114. 3035  PRINT : PRINT "NOTE...BEGINNING APRIL 83 EACH ISSUE": PRINT : PRINT "       CONSISTED OF TWO DISKETTES."
  115. 3037  PRINT : HTAB 6: PRINT "SINGLE DISK BACK ISSUES ARE $6"
  116. 3039  PRINT : HTAB 6: PRINT "DOUBLE DISK BACK ISSUES ARE $8"
  117. 3040  GOSUB 8000: GOTO 2000
  118. 5000  HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
  119. 5010  PRINT : PRINT "YOU ARRIVED AT THIS SCREEN BY FIRST"
  120. 5020  PRINT : PRINT "SELECTING 'ABOUT SOFTDISK' AND THEN"
  121. 5030  PRINT : PRINT "'FEEDBACK PROCESS'.
  122. 5040  PRINT : PRINT : PRINT "AFTER YOU EXIT 'ABOUT SOFTDISK' YOU"
  123. 5050  PRINT : PRINT "WILL BE GIVEN AN OPPORTUNITY TO SELECT"
  124. 5060  PRINT : PRINT "'ON WITH THE SHOW'.
  125. 5070  PRINT : PRINT : PRINT "'ON WITH THE SHOW' TAKES YOU INTO A"
  126. 5080  PRINT : PRINT "PRESENTATION OF THE MAIN BODY OF"
  127. 5090  PRINT : PRINT "SOFTDISK TEXT DATA."
  128. 5100  GOSUB 8000
  129. 5110  HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
  130. 5120  PRINT : PRINT "ONCE YOU ARE VIEWING THE MAIN BODY OF"
  131. 5130  PRINT : PRINT "TEXT DATA YOU WILL NOTICE THAT THE"
  132. 5140  PRINT : PRINT "BOTTOM OF THE SCREEN PRESENTS YOU WITH"
  133. 5150  PRINT : PRINT "SOME OPTIONS."
  134. 5160  PRINT : PRINT "ONE OF THEM IS THE  V  OPTION."
  135. 5180  PRINT : PRINT "THE  V  OPTION ALLOWS YOU TO ENTER"
  136. 5190  PRINT : PRINT "COMMENTS.  YOUR COMMENTS WILL BE"
  137. 5200  PRINT : PRINT "WRITTEN TO THE DISK AND PROVIDE US WITH"
  138. 5210  PRINT : PRINT "FEEDBACK WHEN YOU RETURN YOUR DISKETTE"
  139. 5220  PRINT : PRINT "FOR ANOTHER ISSUE OF SOFTDISK."
  140. 5230  GOSUB 8000
  141. 5240  HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
  142. 5250  PRINT : PRINT "YOU SHOULD ENTER YOUR COMMENTS ONE LINE"
  143. 5260  PRINT : PRINT "AT A TIME."
  144. 5270  PRINT : PRINT "HIT THE RETURN KEY AFTER EACH LINE YOU"
  145. 5280  PRINT : PRINT "ENTER."
  146. 5290  PRINT : PRINT "WHEN YOU FINISH YOUR REPLY AND WANT TO"
  147. 5300  PRINT : PRINT "CONTINUE READING THE MAGAZETTE JUST"
  148. 5310  PRINT : PRINT "HIT RETURN WITHOUT ENTERING ANY DATA."
  149. 5320  PRINT : PRINT "THEN ENTER  G  FOR GOBACK."
  150. 5330  PRINT : PRINT "THAT WILL TAKE YOU BACK TO THE"
  151. 5340  PRINT : PRINT "MAGAZETTE TEXT."
  152. 5350  GOSUB 8000: GOTO 2000
  153. 8000  FOR I = 1 TO 250: NEXT : VTAB 23: CALL  -868: HTAB 14: FLASH : PRINT "*";: NORMAL : PRINT " HIT RETURN ";: FLASH : PRINT "*";: NORMAL : INPUT " ";R$: RETURN 
  154. 8050  VTAB 5: HTAB 6: INVERSE : PRINT "SUBSCRIBER";: NORMAL : HTAB 27: PRINT "SOFTDISK": RETURN 
  155. 8100  VTAB 5: HTAB 6: PRINT "SUBSCRIBER";: HTAB 27: INVERSE : PRINT "SOFTDISK": NORMAL : RETURN 
  156. 8200  FOR I = 7 TO 20: VTAB (I): CALL  -868: NEXT : RETURN 
  157. 9000  HOME : HTAB 6: PRINT "-- ANNUAL SUBSCRIPTIONS --"
  158. 9005  PRINT 
  159. 9010  PRINT : PRINT "     TWO TYPES OF ANNUAL SUBSCRIPTION"
  160. 9020  PRINT : PRINT "ARE AVAILABLE TO YOU."
  161. 9025  PRINT 
  162. 9030  HTAB 5: PRINT "A ";: INVERSE : PRINT "REGULAR ANNUAL SUBSCRIPTION";: NORMAL : PRINT " IS"
  163. 9040  PRINT : PRINT "FOR THOSE WHO WANT TO PAY ONCE A YEAR,"
  164. 9050  PRINT : PRINT "AND WANT TO INTERACT WITH US REGULARLY."
  165. 9060  PRINT : PRINT "YOU RECEIVE AND RETURN OUR DISKETTE"
  166. 9070  PRINT : PRINT "EACH MONTH.  THE ANNUAL RATE IS $55."
  167. 9080  PRINT : PRINT "YOU SAVE $29."
  168. 9090  PRINT : INVERSE : HTAB 13: PRINT "HIT SPACE BAR": GET R$
  169. 9100  NORMAL : HOME : HTAB 6: PRINT "-- ANNUAL SUBSCRIPTIONS --"
  170. 9101  PRINT 
  171. 9110  PRINT : HTAB 5: PRINT "FOR THOSE ON THE GO SO MUCH THAT"
  172. 9120  PRINT : PRINT "THEY FIND RETURNING THE DISKETTE TO US"
  173. 9130  PRINT : PRINT "EACH MONTH INCONVENIENT, THERE IS A"
  174. 9140  PRINT : INVERSE : PRINT "ONE-WAY ANNUAL SUBSCRIPTION";: NORMAL : PRINT " AVAILABLE."
  175. 9150  PRINT : HTAB 5: PRINT "FOR 12 MONTHS WE SEND YOU THE"
  176. 9160  PRINT : PRINT "CURRENT ISSUE OF SOFTDISK.  YOU KEEP"
  177. 9170  PRINT : PRINT "BOTH DISKS.  NOTHING TO RETURN."
  178. 9180  PRINT : HTAB 5: PRINT "IF ON ON OCCASION YOU WANT TO SUBMIT"
  179. 9190  PRINT "A PROGRAM OR SEND US A COMMENT, SEND IT"
  180. 9200  PRINT : INVERSE : HTAB 13: PRINT "HIT SPACE BAR": GET R$
  181. 9205  NORMAL 
  182. 9210  HOME : HTAB 6: PRINT "-- ANNUAL SUBSCRIPTIONS --"
  183. 9211  PRINT 
  184. 9220  PRINT : PRINT "ON A DISK ALONG WITH A NOTE AND WE"
  185. 9230  PRINT : PRINT "WILL SEND IT BACK TO YOU WITH YOUR"
  186. 9240  PRINT : PRINT "NEXT REGULAR ISSUE.  WE WILL EXTEND"
  187. 9250  PRINT : PRINT "YOUR SUBSCRIPTION BY A MONTH IF WE USE"
  188. 9260  PRINT : PRINT "YOUR PROGRAM."
  189. 9270  PRINT : HTAB 5: PRINT "THIS IS THE ONLY TYPE OF SOFTDISK"
  190. 9280  PRINT : PRINT "SUBSCRIPTION AVAILABLE TO THOSE IN"
  191. 9290  PRINT : PRINT "FOREIGN COUNTRIES."
  192. 9295  PRINT : PRINT "$ 85(US) IN THE US AND CANADA."
  193. 9296  PRINT "$100(US) IN ALL OTHER COUNTRIES.
  194. 9300  PRINT : HTAB 13: INVERSE : PRINT "HIT SPACE BAR": GET R$: NORMAL : GOTO 2000